home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / AGSOFF10.ZIP / AGSOFF.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1995-12-15  |  5.7 KB  |  378 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   TSTRING001(6)
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   STRING008
  30.     String   STRING009
  31.     String   STRING010
  32.     String   STRING011
  33.     String   STRING012
  34.     String   STRING013
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     TSTRING001(1) = "        _ ______              _ ______              _ ________ _ _______ _"
  39.     TSTRING001(2) = " _   _ _ /   __/_____________  /  ___/________________\______/___\_____/_ _  _"
  40.     TSTRING001(3) = " _  _kL_/    \     \     _   \/   \     \     _   \   _ _/____/ _ _/____/  _  _"
  41.     TSTRING001(4) = "_ _  _ \      \     \_   /    \_   \__   \_   /    \_       \_        \_  _   _"
  42.     TSTRING001(5) = "  _  _ _\____________/_________/__________/_________/________/_________/_ _  _"
  43.     TSTRING001(6) = ""
  44.     STRING002 = "==============================================================================="
  45.     STRING003 = "============================================================================="
  46.     STRING004 = "==========================================================================="
  47.     STRING006 = "        gET oFF nOW            rETURN tO bOARD            wRITE hERE ^         "
  48.     STRING007 = "@X07      @X1F  gET oFF nOW  @X07          rETURN tO bOARD            wRITE hERE ^         "
  49.     STRING008 = "@X07        gET oFF n@X1FOW            rE@X07TURN tO bOARD            wRITE hERE ^         "
  50.     STRING009 = "@X07        gET oFF nOW          @X1F  rETURN tO bOARD  @X07          wRITE hERE ^         "
  51.     STRING010 = "@X07        gET oFF nOW            rETURN tO bOA@X1FRD            wR@X07ITE hERE ^         "
  52.     STRING011 = "@X07        gET oFF nOW            rETURN tO bOARD          @X1F  wRITE hERE ^  @X07       "
  53.     Cls
  54.     FOpen 1, PPEPath() + "AGSOFF.DAT", 0, 2
  55.     FGet 1, STRING005
  56.     FClose 1
  57.     Color 8
  58.     AnsiPos 63, 23
  59.     Print "AEGiS LoGOFF V1.O"
  60.     Color 15
  61.     AnsiPos 1, 1
  62.     Print "-"
  63.     AnsiPos 79, 10
  64.     Print "-"
  65.     Delay 1
  66.     Color 7
  67.     AnsiPos 2, 1
  68.     Print "-"
  69.     AnsiPos 78, 10
  70.     Print "-"
  71.     Delay 1
  72.     Color 8
  73.     For INTEGER001 = 1 To 19
  74.         AnsiPos INTEGER001 * 4 - 1, 1
  75.         Print "----"
  76.         AnsiPos 78 - INTEGER001 * 4, 10
  77.         Print "----"
  78.         Delay 1
  79.     Next
  80.     Color 7
  81.     AnsiPos 78, 1
  82.     Print "-"
  83.     AnsiPos 2, 10
  84.     Print "-"
  85.     Delay 1
  86.     Color 15
  87.     AnsiPos 79, 1
  88.     Print "-"
  89.     AnsiPos 1, 10
  90.     Print "-"
  91.     Delay 4
  92.     AnsiPos 1, 8
  93.     Color 8
  94.     Print TSTRING001(6)
  95.     Delay 1
  96.     AnsiPos 1, 7
  97.     Color 8
  98.     Print TSTRING001(5)
  99.     Delay 1
  100.     AnsiPos 1, 8
  101.     Color 15
  102.     Print TSTRING001(6)
  103.     Delay 1
  104.     AnsiPos 1, 6
  105.     Color 8
  106.     Print TSTRING001(4)
  107.     Delay 1
  108.     AnsiPos 1, 7
  109.     Color 15
  110.     Print TSTRING001(5)
  111.     Delay 1
  112.     AnsiPos 1, 5
  113.     Color 8
  114.     Print TSTRING001(3)
  115.     Delay 1
  116.     AnsiPos 1, 6
  117.     Color 7
  118.     Print TSTRING001(4)
  119.     Delay 1
  120.     AnsiPos 1, 4
  121.     Color 8
  122.     Print TSTRING001(2)
  123.     Delay 1
  124.     AnsiPos 1, 3
  125.     Color 8
  126.     Print TSTRING001(1)
  127.     Delay 4
  128.     AnsiPos 1, 12
  129.     Color 8
  130.     Print STRING002
  131.     AnsiPos 1, 14
  132.     Color 8
  133.     Print STRING002
  134.     Delay 2
  135.     AnsiPos 1, 12
  136.     Color 7
  137.     Print STRING002
  138.     AnsiPos 1, 14
  139.     Color 7
  140.     Print STRING002
  141.     Delay 2
  142.     AnsiPos 1, 12
  143.     Color 15
  144.     Print STRING002
  145.     Delay 2
  146.     AnsiPos 1, 14
  147.     Color 15
  148.     Print STRING002
  149.     Delay 2
  150.     AnsiPos 2, 12
  151.     Color 7
  152.     Print STRING003
  153.     Delay 2
  154.     AnsiPos 2, 14
  155.     Color 7
  156.     Print STRING003
  157.     Delay 2
  158.     AnsiPos 3, 12
  159.     Color 8
  160.     Print STRING004
  161.     AnsiPos 3, 14
  162.     Color 8
  163.     Print STRING004
  164.     Color 8
  165.     AnsiPos 40 - Len(STRING005) / 2, 11
  166.     Print STRING005
  167.     Delay 3
  168.     Color 7
  169.     AnsiPos 40 - Len(STRING005) / 2, 11
  170.     Print STRING005
  171.     Delay 3
  172.     Color 15
  173.     AnsiPos 40 - Len(STRING005) / 2, 11
  174.     Print STRING005
  175.     Color 7
  176.     For INTEGER001 = 1 To 78
  177.         AnsiPos 79 - INTEGER001, 13
  178.         Print Mid(STRING006, 79 - INTEGER001, 1)
  179.     Next
  180.     INTEGER002 = 1
  181.     INTEGER003 = 1
  182.     AnsiPos 1, 13
  183.     Print STRING007
  184.     AnsiPos 1, 1
  185.     :LABEL001
  186.     STRING012 = Inkey()
  187.     If (((STRING012 == "LEFT") || (STRING012 == "4")) && (INTEGER002 <> 1)) Then
  188.         INTEGER003 = INTEGER002
  189.         Dec INTEGER002
  190.         If (INTEGER003 == 3) Then
  191.             AnsiPos 1, 13
  192.             Print STRING010
  193.             Delay 1
  194.             AnsiPos 1, 13
  195.             Print STRING009
  196.             AnsiPos 1, 1
  197.         Endif
  198.         If (INTEGER003 == 2) Then
  199.             AnsiPos 1, 13
  200.             Print STRING008
  201.             Delay 1
  202.             AnsiPos 1, 13
  203.             Print STRING007
  204.             AnsiPos 1, 1
  205.         Endif
  206.     Endif
  207.     If (((STRING012 == "RIGHT") || (STRING012 == "6")) && (INTEGER002 <> 3)) Then
  208.         INTEGER003 = INTEGER002
  209.         Inc INTEGER002
  210.         If (INTEGER003 == 1) Then
  211.             AnsiPos 1, 13
  212.             Print STRING008
  213.             Delay 1
  214.             AnsiPos 1, 13
  215.             Print STRING009
  216.             AnsiPos 1, 1
  217.         Endif
  218.         If (INTEGER003 == 2) Then
  219.             AnsiPos 1, 13
  220.             Print STRING010
  221.             Delay 1
  222.             AnsiPos 1, 13
  223.             Print STRING011
  224.             AnsiPos 1, 1
  225.         Endif
  226.     Endif
  227.     If (STRING012 == Chr(13)) Goto LABEL002
  228.     Goto LABEL001
  229.     :LABEL002
  230.     If (INTEGER002 == 2) Then
  231.         Color 7
  232.         AnsiPos 40 - Len(STRING005) / 2, 11
  233.         Print STRING005
  234.         Delay 2
  235.         Color 8
  236.         AnsiPos 40 - Len(STRING005) / 2, 11
  237.         Print STRING005
  238.         Delay 2
  239.         AnsiPos 1, 11
  240.         ClrEol
  241.         STRING005 = "CoOL! ;)"
  242.         Color 8
  243.         AnsiPos 40 - Len(STRING005) / 2, 11
  244.         Print STRING005
  245.         Delay 2
  246.         Color 7
  247.         AnsiPos 40 - Len(STRING005) / 2, 11
  248.         Print STRING005
  249.         Delay 2
  250.         Color 15
  251.         AnsiPos 40 - Len(STRING005) / 2, 11
  252.         Print STRING005
  253.         Delay 3
  254.         For INTEGER001 = 1 To 14
  255.             AnsiPos 1, 15 - INTEGER001
  256.             Delay 1
  257.             ClrEol
  258.         Next
  259.         End
  260.     Endif
  261.     If (INTEGER002 == 1) Then
  262.         For INTEGER001 = 1 To 14
  263.             AnsiPos 1, 15 - INTEGER001
  264.             Delay 1
  265.             ClrEol
  266.         Next
  267.         Cls
  268.         Goodbye
  269.     Endif
  270.     If (INTEGER002 == 3) Then
  271.         Color 7
  272.         AnsiPos 40 - Len(STRING005) / 2, 11
  273.         Print STRING005
  274.         Delay 2
  275.         Color 8
  276.         AnsiPos 40 - Len(STRING005) / 2, 11
  277.         Print STRING005
  278.         Delay 2
  279.         AnsiPos 1, 11
  280.         ClrEol
  281.         Color 7
  282.         Print " "
  283.         Backup 1
  284.         STRING013 = STRING005
  285.         STRING005 = ""
  286.         InputStr "_", STRING005, 15, 79, Mask_Ascii(), 4096
  287.         If (STRING005 == "") STRING005 = STRING013
  288.         AnsiPos 1, 11
  289.         ClrEol
  290.         Color 8
  291.         AnsiPos 40 - Len(STRING005) / 2, 11
  292.         Print STRING005
  293.         Delay 2
  294.         Color 7
  295.         AnsiPos 40 - Len(STRING005) / 2, 11
  296.         Print STRING005
  297.         Delay 2
  298.         Color 15
  299.         AnsiPos 40 - Len(STRING005) / 2, 11
  300.         Print STRING005
  301.         Delay 3
  302.         FOpen 1, PPEPath() + "AGSOFF.DAT", 1, 3
  303.         FPutLn 1, STRING005
  304.         FClose 1
  305.         INTEGER002 = 3
  306.         INTEGER003 = 3
  307.         AnsiPos 1, 13
  308.         Print STRING011
  309.         AnsiPos 1, 1
  310.         Goto LABEL001
  311.     Endif
  312.     End
  313.  
  314. ;------------------------------------------------------------------------------
  315. ;
  316. ; Usage report (before postprocessing)
  317. ;
  318. ; ■ Statements used :
  319. ;
  320. ;    2       End
  321. ;    2       Cls
  322. ;    5       ClrEol
  323. ;    40      Color 
  324. ;    20      Goto 
  325. ;    34      Let 
  326. ;    55      Print 
  327. ;    15      If 
  328. ;    2       FOpen 
  329. ;    2       FClose 
  330. ;    1       FGet 
  331. ;    1       FPutLn 
  332. ;    1       InputStr 
  333. ;    38      Delay 
  334. ;    1       Inc 
  335. ;    1       Dec 
  336. ;    1       Goodbye
  337. ;    65      AnsiPos 
  338. ;    1       Backup 
  339. ;
  340. ;
  341. ; ■ Functions used :
  342. ;
  343. ;    2       *
  344. ;    13      /
  345. ;    6       +
  346. ;    19      -
  347. ;    13      ==
  348. ;    2       <>
  349. ;    4       <
  350. ;    4       <=
  351. ;    8       >=
  352. ;    13      !
  353. ;    10      &&
  354. ;    6       ||
  355. ;    13      Len(
  356. ;    1       Mid()
  357. ;    1       Chr()
  358. ;    1       Inkey()
  359. ;    1       Mask_Ascii()
  360. ;    2       PPEPath()
  361. ;
  362. ;------------------------------------------------------------------------------
  363. ;
  364. ; Analysis flags : No flag
  365. ;
  366. ;------------------------------------------------------------------------------
  367. ;
  368. ; Postprocessing report
  369. ;
  370. ;    4       For/Next
  371. ;    0       While/EndWhile
  372. ;    9       If/Then or If/Then/Else
  373. ;    0       Select Case
  374. ;
  375. ;------------------------------------------------------------------------------
  376. ;                 AEGiS Corp - Break the routines, code against the machines!
  377. ;------------------------------------------------------------------------------
  378.